0 REM *******************************
1 REM *** 1750/1764 REU SLIDESHOW ***
2 REM *** DESIGNED AND WRITTEN BY ***
3 REM *** - JAMES HASTINGS-TREW - ***
4 REM ***      JULY 19,1988       ***
5 REM ***  AT THE SUGGESTION OF   ***
6 REM ***    JUDITH M. BALDWIN    ***
7 REM ***    OF THE E.C.C.U.G.    ***
8 REM *******************************
9 :
10 IF A=1THEN62
11 IF X=0THENX=1:LOAD"FASTBOOT",8,1
12 IFX=1THENX=2:SYS51200:GOSUB13:GOTO43
13 FORA=49154TO49320:REM INSTALL ML
14 READI:POKEA,I
15 NEXT:RETURN
16 DATA 173,17,208,41,239,9,32,141
17 DATA 17,208,173,22,208,41,223,9
18 DATA 16,141,22,208,173,24,208,41
19 DATA 240,9,8,141,24,208,76,43
20 DATA 192,173,17,208,41,239,141,17
21 DATA 208,162,127,160,64,134,252,132
22 DATA 251,162,4,160,0,134,254,132
23 DATA 253,162,131,160,39,32,127,192
24 DATA 162,131,160,40,134,252,132,251
25 DATA 162,216,160,0,134,254,132,253
26 DATA 162,135,160,15,32,127,192,173
27 DATA 16,135,141,33,208,162,96,160
28 DATA 0,134,252,132,251,162,32,160
29 DATA 0,134,254,132,253,162,127,160
30 DATA 63,32,127,192,173,17,208,9
31 DATA 16,141,17,208,96,142,1,192
32 DATA 140,0,192,160,0,177,251,145
33 DATA 253,165,252,205,1,192,208,8
34 DATA 165,251,205,0,192,208,1,96
35 DATA 230,251,208,2,230,252,230,253
36 DATA 208,227,230,254,76,135,192
37 SYS49154  :REM SHOW PIC
38 RETURN
39 POKE53265,PEEK(53265)AND223 :REM PUT SCREEN BACK TO NORMAL
40 POKE53272,(PEEK(53272)AND240)OR4
41 POKE53270,PEEK(53270)AND239
42 POKE53281,FC:POKE646,CC:RETURN
43 POKE53280,0:POKE53281,0
44 PRINT"[147][158]     1750/1764 [203]OALAPAINT [211]LIDE [211]HOW    "
45 PRINT"[159] [196]O YOU HAVE A [210]AM [197]XPANSION [213]NIT        INSTALLED? <Y/N>"
46 RU=0:POKE198,0:WAIT198,1:GETA$:IFA$="Y"THENRU=1:GOSUB110:GOTO48
47 IFA$<>"N"THEN46
48 INPUT" [197]NTER TIME (SEC.) FOR EACH PICTURE";TM:IFTM<0ORTM>59THEN48
49 TM=TM*60
50 PRINT:PRINT" [201]NSERT DATA DISK IN DRIVE <RETURN>"
51 GETA$:IFA$=""THEN51
52 DIMF$(16):POKE198,0
53 GOSUB 69
54 IFNN=0THENPRINT"[147]SORRY, NO KOALA PICTURES ON THIS DISK":END
55 PRINT"PRESS ANY KEY DURING THE SLIDE SHOW TO  STOP"
56 GS=0
57 IFGS=NN THEN RO=1:GOTO56
58 G$=LEFT$(F$(GS),15)
59 FC=PEEK(53281):CC=PEEK(646)
60 IF RU=1 AND RO=1 THEN GOSUB 98:GOTO 63
61 A=1:LOADG$,8,1
62 IF RU=1 AND RO=0 THEN GOSUB 86
63 GOSUB37:TI$="000000"
64 IFTI<TMTHEN64
65 GS=GS+1:GETA$:IFA$=""THEN57
66 GOSUB39
67 PRINT"[147][196]ONE!":POKE53281,0
68 END
69 REM DIRECTORY READ
70 PRINT"[147][158]LIST OF ALL KOALA PICTURES ON THIS DISK"
71 OPEN15,8,15:OPEN5,8,5,"#":T=18:S=1:NN=0:Z$=CHR$(0)
72 PRINT#15,"U1:"5;0;T;S:PRINT#15,"B-P:"5;0:GET#5,T$,S$
73 T=ASC(T$+Z$):S=ASC(S$+Z$):BP=5:FL=1
74 PRINT#15,"B-P:"5;BP:GET#5,A$:IFA$="[129]"THENGOSUB79
75 BP=BP+32:FL=FL+1:IFFL<>9THEN74
76 IFT=18THEN72
77 CLOSE5:CLOSE15:T$="":S$="":A$="":N=FRE(0)
78 RETURN
79 REM LISTER
80 PRINT"[193][146]";
81 FORX=1TO15
82 F$(NN)=F$(NN)+A$:GET#5,A$:PRINTA$;
83 NEXT
84 N=FRE(0):NN=NN+1:PRINT
85 RETURN
86 REM LOAD PIC INTO REU
87 AD=GS*10010:AB=INT(AD/65536):AD=AD-(65536*AB):AH=INT(AD/256)
88 AL=AD-(AH*256)
89 POKE57096,39:REM PIC LEN HI-BYTE
90 POKE57095,17:REM PIC LEN LO-BYTE
91 POKE57094,AB:REM REU BANK
92 POKE57093,AH:REM REU ADDR HI-BYTE
93 POKE57092,AL:REM REU ADDR LO-BYTE
94 POKE57091,96:REM PIC ADDR HI-BYTE
95 POKE57090,00:REM PIC ADDR LO-BYTE
96 POKE57089,144:REM DO IT!
97 RETURN
98 REM LOAD PIC FROM REU
99 AD=GS*10010:AB=INT(AD/65536):AD=AD-(65536*AB):AH=INT(AD/256)
100 AL=AD-(AH*256)
101 POKE57096,39:REM PIC LEN HI-BYTE
102 POKE57095,17:REM PIC LEN LO-BYTE
103 POKE57094,AB:REM REU BANK
104 POKE57093,AH:REM REU ADDR HI-BYTE
105 POKE57092,AL:REM REU ADDR LO-BYTE
106 POKE57091,96:REM PIC ADDR HI-BYTE
107 POKE57090,00:REM PIC ADDR LO-BYTE
108 POKE57089,145:REM DO IT!
109 RETURN
110 REM INITIALIZE REU
111 POKE 57098,0:REM ADDR CONTROL
112 POKE 57097,128:REM INTERRUPTS
113 RETURN